home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / sprintf.tst < prev    next >
Text File  |  1999-09-16  |  5KB  |  93 lines
  1. //test format '%f'
  2. //
  3. deff('[y]=bugnum(str1,str2,str3)',['[lhs,rhs]=argn(0);if rhs==3 then y= str1<>str2 & str1<>str3;';
  4.         'else y=str1<>str2;end'])
  5.  
  6. if bugnum(sprintf('%f',-35),'-35.000000' ) then pause,end
  7. if bugnum(sprintf('%f',35.55),'35.550000' ) then pause,end
  8. if bugnum(sprintf('%f',0.00433),'0.004330' , ' .004330' ) then pause,end
  9. if bugnum(sprintf('%f',0.0000000345456),'0.000000' , ' .000000' ) then pause,end
  10. if bugnum(sprintf('%f',11124234534545),'11124234534545.000000' ) then pause,end
  11.  
  12. if bugnum(sprintf('%15f',-35),'     -35.000000' ) then pause,end
  13. if bugnum(sprintf('%15f',0.00433),'       0.004330','        .004330' ) then pause,end
  14. if bugnum(sprintf('%15f',0.0000000345456),'       0.000000' ,'        .000000' ) then pause,end
  15. if bugnum(sprintf('%15f',11124234534545),'11124234534545.000000' ) then pause,end
  16.  
  17. if bugnum(sprintf('%.1f',-35),'-35.0' ) then pause,end
  18. if bugnum(sprintf('%.0f',-35),'-35' ) then pause,end
  19. if bugnum(sprintf('%#.0f',-35),'-35.' ) then pause,end
  20. if bugnum(sprintf('%.1f',0.00433),'0.0',' .0') then pause,end
  21. if bugnum(sprintf('%.15f',0.0000000345456),'0.000000034545600' ,' .000000034545600' ) then pause,end
  22. if bugnum(sprintf('%.1f',11124234534545),'11124234534545.0' ) then pause,end
  23.  
  24. //test format '%g'
  25. if bugnum(sprintf('%g',-35),'-35' ) then pause,end
  26. if bugnum(sprintf('%g',35.55),'35.55' ) then pause,end
  27. if bugnum(sprintf('%g',35.551234567890),'35.5512' ) then pause,end
  28. if bugnum(sprintf('%+g',35.551234567890),'+35.5512' ) then pause,end
  29. if bugnum(sprintf('%g',0.00433),'0.00433' ,' .00433' ) then pause,end
  30. if bugnum(sprintf('%g',0.0000000345456),'3.45456e-08' ) then pause,end
  31. if bugnum(sprintf('%g',11124234534545),'1.11242e+13' ) then pause,end
  32.  
  33. if bugnum(sprintf('%15g',-35),'            -35' ) then pause,end
  34. if bugnum(sprintf('%15g',0.00433),'        0.00433','         .00433' ) then pause,end
  35. if bugnum(sprintf('%15g',0.0000000345456),'    3.45456e-08' ) then pause,end
  36. if bugnum(sprintf('%15g',11124234534545),'    1.11242e+13' ) then pause,end
  37.  
  38. if bugnum(sprintf('%.1g',-35),'-4e+01' ) then pause,end
  39. if bugnum(sprintf('%.0g',-35),'-4e+01' ) then pause,end
  40. if bugnum(sprintf('%#.0g',-35),'-4.e+01' ) then pause,end
  41. if bugnum(sprintf('%#.0G',-35),'-4.E+01' ) then pause,end
  42. if bugnum(sprintf('%.1g',0.00433),'0.004' ,' .004' ) then pause,end
  43. if bugnum(sprintf('%.15g',0.0000000345456),'3.45456e-08' ) then pause,end
  44. if bugnum(sprintf('%.1g',11124234534545),'1e+13' ) then pause,end
  45.  
  46. //test format '%e'
  47. if bugnum(sprintf('%e',-35),'-3.500000e+01' ) then pause,end
  48. if bugnum(sprintf('%e',35.55),'3.555000e+01' ) then pause,end
  49. if bugnum(sprintf('%+e',35.55),'+3.555000e+01' ) then pause,end
  50. if bugnum(sprintf('%e',35.551234567890),'3.555123e+01' ) then pause,end
  51. if bugnum(sprintf('%e',0.00433),'4.330000e-03' ) then pause,end
  52. if bugnum(sprintf('%e',0.0000000345456),'3.454560e-08' ) then pause,end
  53. if bugnum(sprintf('%e',11124234534545),'1.112423e+13' ) then pause,end
  54. if bugnum(sprintf('%E',11124234534545),'1.112423E+13' ) then pause,end
  55.  
  56. if bugnum(sprintf('%15e',-35),'  -3.500000e+01' ) then pause,end
  57. if bugnum(sprintf('%15e',0.00433),'   4.330000e-03' ) then pause,end
  58. if bugnum(sprintf('%15e',0.0000000345456),'   3.454560e-08' ) then pause,end
  59. if bugnum(sprintf('%+15e',0.0000000345456),'   +3.454560e-08' ) then pause,end
  60. if bugnum(sprintf('%15e',11124234534545),'   1.112423e+13' ) then pause,end
  61.  
  62. if bugnum(sprintf('%.1e',-35),'-3.5e+01' ) then pause,end
  63. if bugnum(sprintf('%.0e',-35),'-4e+01' ) then pause,end
  64. if bugnum(sprintf('%#.0e',-35),'-4.e+01' ) then pause,end
  65. if bugnum(sprintf('%.1e',0.00433),'4.3e-03' ) then pause,end
  66. if bugnum(sprintf('%.15e',0.0000000345456),'3.454560000000000e-08' ) then pause,end
  67. if bugnum(sprintf('%.1e',11124234534545),'1.1e+13' ) then pause,end
  68.  
  69. //test format %c
  70. if bugnum(sprintf('%c',29),'t' ) then pause,end
  71. if bugnum(sprintf('%10c',-29),'         T' ) then pause,end
  72. if bugnum(sprintf('%10.3c',29),'         t' ) then pause,end
  73. if bugnum(sprintf('%-10c',29),'t         ' ) then pause,end
  74.  
  75. //test format %s
  76. if bugnum(sprintf('%s','text'),'text' ) then pause,end
  77. if bugnum(sprintf('%10s','text'),'      text' ) then pause,end
  78. if bugnum(sprintf('%10.3s','text'),'       tex' ) then pause,end
  79. if bugnum(sprintf('%-10s','text'),'text      ' ) then pause,end
  80.  
  81. if bugnum(sprintf('%s','t'),'t' ) then pause,end
  82.  
  83. //test format %x
  84. if bugnum(sprintf('%x',123),'7b' ) then pause,end
  85. if bugnum(sprintf('%.10x',123),'000000007b' ) then pause,end
  86. if bugnum(sprintf('%x',-123),'ffffff85' ) then pause,end
  87. if bugnum(sprintf('%X',-123),'FFFFFF85' ) then pause,end
  88. if bugnum(sprintf('%#.3X',12),'0X00C' ) then pause,end
  89.  
  90. //test format %o
  91. if bugnum(sprintf('%015o',-12),'000037777777764' ) then pause,end
  92.  
  93.